# martingale prediction
martingalePredict <- function(timeSeries){
  return(as.vector(timeSeries[length(timeSeries)]))
}

martingalePredict(zf)

ret <-ownPredict(zf,martingalePredict,10000,function(x) return(x), simDeTrans)
ret <-ownPredict(cl,martingalePredict,10000,function(x) return(x), simDeTrans)
ret <-ownPredict(google,martingalePredict,10000,function(x) return(x), simDeTrans)

plot(ret$x2)
lines(ret$y2)
ret$aafe